unit uSBDUnit_Controller;
interface
uses uSBDUnit_Model;

type

IUnitTestController = interface
  ['{8DE2F508-1368-44E6-9BF1-7B477033EEEC}']
    function  Can_ShutDown: boolean;
    procedure ShutDown;
    procedure SetModel( const Value: ITestEngine);
    procedure SetCoDestroyObject( Obj: TObject);
    procedure Run;
    function  Can_Run: boolean;
    procedure Abort;
    function  Can_Abort: boolean;
    procedure Clear;
    function  Can_Clear: boolean;
    procedure DeselectAll;
    function  Can_DeselectAll: boolean;
    procedure SelectAll;
    function  Can_SelectAll: boolean;
    procedure SelectFailures;
    function  Can_SelectFailures: boolean;
    procedure ToggleSelection;
    function  Can_ToggleSelection: boolean;
  end;

IControllingView = interface
  ['{B3739460-05B0-4830-A983-4F81DD92F969}']
    procedure SetController( const Value: IUnitTestController);
  end;


implementation

end.
